home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / Tools / xc-4.4 / .aus next >
Encoding:
Text File  |  1995-05-03  |  1.1 KB  |  66 lines
  1. # .asu or .aus : visit SCOForum and UnixForum
  2. #    non-stop read, and Prompt Char set to '^H' in all Fora.
  3. #debug "on"
  4. set cis off
  5. set proto 7e
  6.  
  7. call ".cisdial"
  8.  
  9. pause 3; transmit "^C"
  10. assign SERVICE eq "scoforum"
  11. call ".pass"
  12.  
  13. #debug "on"
  14.  
  15. set cfile "/pub/jpr/comm/sco"
  16. waitfor "moment please..."
  17. capture "on"
  18. if waitfor "forum !^h"  75
  19. then
  20.     call ".temp_opt"            
  21.     assign Upload eq `ls scoR 2>/dev/null`
  22.     if Upload eq "scoR"
  23.     then    capture "off"
  24.         type "scoR"
  25.         transmit "^M"
  26.         while ! waitfor "% choice required"
  27.             do; done
  28.         shell "mv scoR /pub/rescue/scoR$$"
  29.         capture "on"
  30.     fi
  31.     transmit "rea new^M^M"
  32.     while ! waitfor "% choice required"
  33.         do; done
  34.     capture "off"
  35. else
  36.     beep
  37. fi
  38.  
  39. set cfile "/pub/jpr/comm/uni"
  40. transmit "g unixforum^M"
  41. waitfor "moment please..."
  42. capture "on"
  43. if waitfor "forum !^h" 75
  44. then
  45.     call ".temp_opt"            
  46.     assign Upload eq `ls uniR 2>/dev/null`
  47.     if Upload eq "uniR"
  48.     then    capture "off"
  49.         type "uniR"
  50.         transmit "^M"
  51.         while ! waitfor "% choice required"
  52.             do; done
  53.         shell "mv uniR /pub/rescue/uniR$$"
  54.         capture "on"
  55.     fi
  56.     transmit "rea new^M^M"
  57.     while ! waitfor "% choice required"
  58.         do; done
  59.     capture "off"
  60. else
  61.     beep
  62. fi
  63.  
  64. transmit "off^M"
  65. quit
  66.